<% 

option explicit


Response.Expires = -1
Server.ScriptTimeout = 600
%>



<html>
<head>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
}
-->
</style>
<link rel="stylesheet" type="text/css" href="css/calidda_estilo.css">
<title>Calidda | Administrador</title>

</head>
<body>
<table width="550" border="0" cellpadding="0" cellspacing="0" HEIGHT="400">
  <!--DWLayoutTable-->
  <tr>
    <td height="111" colspan="5" valign="top"><p>
      <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="577" height="111">
        <param name="movie" value="swf/head_preg.swf">
        <param name="quality" value="high">
        <embed src="swf/head_preg.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="577" height="111"></embed>
      </object>
    </p></td>
  </tr>
  <tr>
    <td width="17" height="300">&nbsp;</td>
    <td colspan="3" valign="top"><p class="Texto_Normal_Calidda">&nbsp;</p>
        <%
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'If objFSO.FileExists("D:\wwwroot\calidda.com.pe\www\pdf\inicio.txt") Then

If objFSO.FileExists("E:\kunden\homepages\14\d468397502\www\proy\calidda\admin_reporteOperativo\pdf\inicio.txt") Then
'Response.Redirect("http://www.calidda.com.pe/admin_reporteOperativo2013/registrar2.asp") 

Response.Redirect("registrar2.asp") 

Else
'Response.Redirect("http://www.calidda.com.pe/admin_reporteOperativo2013/mensaje.asp") 

Response.Redirect("mensaje.asp") 
End If 
Set objFSO = Nothing
%>        
        <p class="Texto_Normal_Calidda">&nbsp;</p>
    </td>
    <td width="23">&nbsp;</td>
  </tr>
  <tr>
    <td height="1"></td>
    <td width="232"></td>
    <td width="290"></td>
    <td width="15"></td>
    <td></td>
  </tr>
</table>
</body>
</html>
